Tinll-DeCuongHKl-0910 

Chu y: 

-Mot SO lop CO sii sai lech khi sao lai (Tap an phan trie nghiem (mot vai cau thoi): can xem lai cho ky. 

-Phan goi y bai giai chi tap trung vao nhCrng cau kho. Cac cau con lai cac ban tii scan. 

-Phan tii luan chi c6 tfnh chat tham khao. Cac ban c6 thi viet theo y cua minh neu thay thuat toan minh 

dwa ra chwa tot lam. 

2.Cac ten sau day ten nao la khong hap le: NaOH, abc, CNH-HOH, H2O, 11A14, Cos#, Z 27 

HUONG DAN: 

Cach dat ten dung: 

-khong chiia dau each 

-khong trung tu khoa 

-khong bat dau bang so 

-khong ehua ki tyt dae biet (eo 23 ki tyt dat biet): 
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VI DU: 



Ten sai 


Lydo 


Bai tap 


Chua dau each 


Begin 


Triing tu khoa 


IBaiTap 


Bat dau bang so 


CNH-HDH 


Chua ki tu dac biet 


CNH/HDH 


Chua ki tu dac biet 


Sin@ 


Chua ki tu dac biet 



3. Cac ten sau day ten nao la khong hop le: Baitap, Bai tap, Bai-tap, BaiTap* 
hu&ng dan: nhw cau 2 



8.1. Chon each bieu dien Pascal dung cho cac bieu thuc toan hoc sau: 

hu&ng dan: 

-Trong ngoac tnioc ngoai ngoac sau. 

-Nhan chia truac (ca div va mod) cong tru sau 

-Neu cung do iru tien (trong bieu tfiirc cfii co nfidn va cilia iioac cong va trie) till viet bieu tiiuc tirong dwong tudn tie 

tie trdi qua piidi 



A)2x^ + 4x' - 6x - 8 
a. 2 * sqr ( sqr (x) ) -1- 4 * (sqr (x) * x ) - 6*x - 8 


B) 2-^^x + y +y[x-5 
a. 2 * sqrt (sqrt (x-i-y)) -1- sqrt (x) - 5 


-b 

C) 2a 

a. -b/(2*a) 

b. -b/?/a 

c. -3/2* b/a 


0)" 

ac 

a. b/(a*c) 

b. b/a/c 

c. Va*b/c 



8.2. (bo xung de on): Viet bieu thipc tipo'ng dyang cua Toan hoc Xu" bieu thipc Pascal sau: 


A/B*2 


A 2xA 
B B 
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A*B*C/2 


,» ^,^ C {AxBxC) AxBxC 
(AxB)x — = = 

2 2 2 



9. Chon bieu thuc toan hoc phu hgp vai bieu thuc Pascal sau: 





B) sqrt(abs(x-i-y) - sqr (b)) 

a. ^Ix-l- J 1 -^7^ 

b. ^\x + y\-4b 

c. yjlx + yl -^' 


d.^\x + y\-t, 


C. abs(x - y) - 5 

a. Ln (x - y) - 5 

b. -Jx-y -5 

c. Ix-yl - 5 

d. Ixl-lyl - 5 





24. Hay cho vf du ve 3 ten sai trong Pascal 
hu&ng dan: (xem hu&ng dan cdu 2} 

27. Trong cac khai bao sau, khai bao nao la OUNG qui tac 
a. Const thuong = 1000 
c. Const thuong = 1,000; 



b. Const thuong := 1000 
d. Const thuong =1000; 



29. Vai mien gia tri tu ^ 32767 ta can khai bao kieu du lieu nao la hap ly 
a. byte b. word 

c. integer c. longint 

37. Can phai khai bao toi thieu, toi da bao nhieu bien de tfnh khoang duang di dugc cua xe vai van toe va thai gian 
dugc biet truac (dugc nhap gia tri vao tu ban phfm) 

a. Toi thieu 1 bien, toi da 2 bien b. Toi thieu 2 bien, toi da 2 bien 

c. Toi thieu 2 bien, toi da 3 bien d. Toi thieu 3 bien, toi da 3 bien 

38. Lenh dung de xuat ngi dung - ket qua ra man hinh la: 

a. write / writeln b. read / readln 

c. begin d. end 



39. Lenh dung de nhap gia tri vao tu ban phfm la: 
a. write / writeln 
c. begin 



b. read / readln 
d. end 



Vai lenh Write(X:6:l); gia su X c6 gia tri la 3.14 thi tren man hinh se the hien nhu the nao? 

a. 3. 1 b. 3. 1 

C.3. 1 d.3. 1 

42. Oe luu chuang trinh nhan phfm ? roi go ten -^ enter 

F2 
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43. Oe dich chuang trinh dung to hap phfm 
Alt + F9 

44. Oe thuc thi chuang trinh dung to hop phfm 
Ctrl + F9 

45. Oe dong chuong trinh dang thuc hien dung to hop phfm 
Alt + F3 

46. Oe dong va thoat khoi chuong trinh Pascal dung to hop phfm 
Alt + X 

47. Chon each sap xep hop ly la: 

1. Soan thao ; 2. Dich ; 3. Chay chuong trinh 

Tif luan: Viet chirang trinh: 

1. Tinli tong tu 1 den n voi n la so nguyen duong c6 gia tri nhap vac tu ban phfm 
program TongNSoTuNhienDauTien; 

uses crt; 
var i,n:byte; 

s:word; 
begin 

clrscr; 

writeln('Nhap n >0'); 

readln(n); 

s:=0; 

fori:=l ton do 
s:=s+i; 

write(s); 

readln 
end. 

2. Tinh tich tu 1 den n voi n la so nguyen duong c6 gia tri nhap vao tu ban phfm 
program TichNSoTuNhienDauTien; 

uses crt; 
var i,n:byte; 

P:longint; 
begin 

clrscr; 

writeln('Nhap n >0'); 

readln(n); 

p:=l; 

fori:=l ton do 

p:=p*i; 
write(p); 
readln 
end. 

3. Tim so Ion hon giiJa hai so a, b c6 gia tri nhap vao tu ban phfm 
program SLLTrong2So; 

uses crt; 

var a,b:integer; 
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SLLdnteger; 
begin 

clrscr; 

readln(a,b); 

SLL:=a; 

ifb>SLLthen 
SLL:=b; 

write(SLL); 

readln 
end. 

4. Xuat ra man hinh tarn giac vuong can sao vai 
program TamGiacVuongCanHinhSao; 

uses crt; 
begin 

clrscr; 

writelnC*'); 

writelnC**'); 

writelnC***'); 

writelnC****'); 

readln 
end. 

5. Xuat ra man hinh uac so chung Ion nhat cua hai so a, b c6 gia tri nhap vao tu ban phim 
hu&ng dan: (xem lai bai hoc) 

6. Tong/ tich cac so chan / le nam trong khoang tu 1 ^- n voi n c6 gia tri nhap vao tu ban phim 
program TongTichCacSoChanLeTulDenN; 

uses crt; 
var i,n:byte; 

s,p:longint; 
begin 

clrscr; 

write('Nhap n (n>= 1 ) : ') ; 

readln(n); 

s:=0; 

write('Tong chan:'); 

for i:=0 to n do 
s:=s+2*i; 

write(s); 

writeln; 

writeCTong le:'); 

s:=0; 

fori:=l ton do 
s:=s+2*i-l; 

write(s); 

writeln; 

write('Tich chan:'); 

p:=l; 

fori:=l ton do 

p:=p*2*i; 
write(p); 
writeln; 
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write('Tich le:'); 

p:=l; 

fori:=l ton do 
p:=p*(2*i-l); 
write(p); 
readln 
end. 

7. Xuat ra cac so chan va chia het cho 3 nam trong khoang tu 1 ^- n (nhu tren) 
program XuatMangSoChanChiaHetChoS ; 

uses crt; 

var a:array[1..250] of integer; 

n,i:integer; 
begin 
clrscr; 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
fori:=l ton do 
if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then 
write(a[i]:3); 
readln 
end. 

8. Nhap vao mang 1 chieu, xuat gia tri cac phan tu tai vi tri chan/le trong mang 
program XuatGTPTOVTChanVaVTLe; 

uses crt; 

var a:array[1..250] of integer; 

n,i:integer; 
begin 
clrscr; 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
writelnCGTPT tai cac VT chan:'); 
fori:=l to ndo 
if i mod 2 = then 
write(a[i]:3); 
writeln; 

writelnCGTPT tai cac VT le:'); 
fori:=l to ndo 
if i mod 2 <> then 
write(a[i]:3); 
readln 
end. 

9. Nhap vao mang 1 chieu, xuat gia tri cac phan tu chan/le trong mang 
program XuatMangChanMangLe; 
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uses crt; 

var a:array[1..250] of integer; 

n,i:integer; 
begin 
clrscr; 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
writeln('Mang chan:'); 
fori:=l ton do 
if a[i] mod 2 = then 
write(a[i]:3); 
writeln; 

writeln('Mang le:'); 
fori:=l ton do 
if a[i] mod 2 <> then 
write(a[i]:3); 
readln 
end. 

10. Nhap vao mang 1 chieu, tim xem k c6 trong mang hay khong? 

program XacDinhKCoTrgM lC_TimNhiPhan; 
uses crt; 

const Nmax = 250; 

type Arrlnt=array[ 1 . .Nmax] of integer; 
var N,i,k,Dau,Cuoi,Giua:integer; 
A:ArrInt; 
TimThay:boolean; 
begin 
clrscr; 

write('Nhap so luong phan tu cua day so,N= '); 
readln(N); 

writeln('Nhap cac phan tu cua day so tang: '); 
fori:=l toNdo 
begin 
write('Phan tu thu ',i,' ='); 
readln(A[i]); 
end; 
write('Nhap gia tri k= '); 
readln(k); 

Dau:=l;Cuoi:=N;TimThay:=false; 
while (Dau<=Cuoi) and not (TimThay) do 
begin 
Giua:= (Dau+Cuoi) div 2; 
ifA[Giua]=kthen 
TimThay:=true 
else 
if A[Giua]>k then Cuoi:=Giua-l 
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elseDau:=Giua+l; 
end; 
if TimThay then writeln('K co ton tai trg MlC,vi tri cua K la: ',Giua) 

else writeln('Ko tim thay K'); 
readln 
end. 

1 1 . Nhap vao mang 1 chieu, sap xep mang tang / giam dan (Co 2 each giai) 

program SXMangTangGiamCl; 

uses crt; 

var a:array[1..250] of integer; 

n,i,j ,TrungGian:integer; 
begin 
clrscr; 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
writeln('SX tang:'); 
fori:=l ton-1 do 
forj:=i+l to n do 
if a[i] > a[j] then 
begin 
TrungGian:=a[i]; 
a[i]:=a[j]; 
a[j]:=TrungGian; 
end; 
fori:=l ton do 
write(a[i]:3); 
writeln; 

writeln('SX giam:'); 
fori:=l ton-1 do 
forj:=i+l to n do 
if a[i] < a[j] then 
begin 
TrungGian:=a[i]; 
a[i]:=a[j]; 
a[j]:=TrungGian; 
end; 
fori:=l ton do 
write(a[i]:3); 
readln 
end. 

program SXMangTangGiamC2(SXTraoDoi_NoiBot); 
uses crt; 

var a:array[1..250] of integer; 
n,i,j ,TrungGian:integer; 
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begin 
clrscr; 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
writelnCSX tang:'); 
for j:=n downto 2 do 
fori:=l toj-1 do 
if a[i] > a[i+l] then 
begin 
TrangGian:=a[i]; 
a[i]:=a[i+l]; 
a[i+l]:=TrangGian; 
end; 
fori:=l ton do 
write(a[i]:3); 
writeln; 

writeln('SX giam:'); 
for j:=n downto 2 do 
fori:=l toj-1 do 
if a[i] < a[i+l] then 
begin 
TrungGian:=a[i]; 
a[i]:=a[i+l]; 
a[i+l]:=TrungGian; 
end; 
fori:=l ton do 
write(a[i]:3); 
readln 
end. 

12. Nhap vao mang 1 chieu, tinh tong cac phan tu trong mang 
program TongGTPTCuaMlC; 
uses crt; 
var a:array[1..250] of integer; 

i,n:byte; 

s:word; 
begin 

clrscr; 

writeCNhap SLPTn='); 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
s:=0; 
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fori:=l ton do 

s:=s+a[i]; 
write(s); 
readln 
end. 

13. Nhap vao mang 1 chieu tinh tong cac gia tri cua phan tu ma gia tri do chia het cho 5 
program TongGTPTCuaMlCChiaHetChoS; 

uses crt; 

var a:array[1..250] of integer; 

i,n:byte; 

s:word; 
begin 

clrscr; 

write('NhapSLPTn='); 
readln(n); 
fori:=l ton do 
begin 
writeCNhap GTPT thu ',i,':'); 
readln(a[i]); 
end; 
s:=0; 

fori:=l ton do 
if a[i] mod 5 = then 
s:=s+a[i]; 
write(s); 
readln 
end. 

14. Nhap vao 1 xau, xuat xau do theo chieu ngugc lai 
program XuatXauNguocLai; 

uses crt; 
var x: string; 

idnteger; 
begin 

clrscr; 

readln(x); 

for i:=length(x) downto 1 do 
write(x[i]); 

readln 
end. 

15. Nhap vao xau, tao xau thu hai bang each chuyen cac ky ty xau thu nhat thanh ky tu In roi dua vao xau thu 2 
program TaoXauChuInTuXauDaCho; 

uses crt; 
var xl:string; 

x2: string; 

idnteger; 
begin 

clrscr; 

readln(xl); 

x2 :=copy(upcase(x 1 ) , 1 ,length(x 1 )) ; 

write(x2); 

readln 
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end. 

16. Nhap xau thu nhat, tao xau thu hai bang each lay toan bo ky tu c6 trong xau thii nhat loai tru ky tu trang 
program TaoXauOKCTuXauCoKC; 

uses crt; 
var xl:string; 

x2: string; 

idnteger; 
begin 

clrscr; 

readln(xl); 

x2:="; (*Xdu rong*) 

for i:=l to length(xl) do 
if xl[i]<>' ' then (*Ddu each*) 
x2:=x2+xl[i]; 

write(x2); 

readln 
end. 

17. Nhap xau thii nhat, tao xau thu hai bang each lay toan bo ky tu so trong xau 1 
program TaoXauChuaSoTuXauVuaSoVuaChu; 

uses ert; 
var xl:string; 

x2: string; 

idnteger; 
begin 

elrser; 

readln(xl); 

x2:="; 

for i:=l to length(xl) do 
if CO'<=xl[i]) and (xl[i]<='9') then 
x2:=x2+xl[i]; 

write(x2); 

readln 
end. 

18. Nhap hai xau. Xuat ra man hinh day ky tu la nhung ky tu dan xen cua hai xau 
CM y: thuat toan chwa hoan Men. Code nay tham khdo de viet hoan thien bai 18: 
Program XauDanXeneuaHaiXauChoTre ; 

uses ert; 

var xl,x2: string; 

x3: string; 
begin 

elrser; 

readln(xl); 

readln(x2); 

x3:="; (*Xau rong*) 
For i:=l to length(xl) do 
x3:=x3 + xl[i] + x2[i]; 

write(x3); 

readln; 
end. 

19. Nhap hai xau , xuat ra man hinh xau be roi tai xau Ian 
program XuatXauBeRoiDenXauLon; 
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uses crt; 
varxl,x2: string; 

i: integer; 
begin 
clrscr; 
readln(xl); 
readln(x2); 
if length(xl) < length(x2) then 

write(xl,x2:5) 
else 

write(x2,xl:5); 
readln 
end. 

20. Nhap vao hai xau, ghep hai xau thanh mot xau theo dieu kien xau be diing truac, xau Ian diing sau, hai xau 
each nhau bang ky tu "_" 
program GhepThanhlXau_XauBeTrcXauLonSau; 
uses crt; 
varxl,x2: string; 

idnteger; 
begin 
clrscr; 
readln(xl); 
readln(x2); 
if length(xl) < length(x2) then 

write(xl+'-'+x2) 
else 

write(x2+'-'+xl); 
readln 
end. 
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